#! /usr/bin/perl
use strict;
use warnings FATAL => 'all';


use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use HTTP::Request::Common;

my $agent = LWP::UserAgent->new;
my $request = GET('http://localhost:8080/graphTag/markerTag?causeId=1000');
$request->header('User-Agent'=>'Mozilla/5.0 (Windows NT 5.1; rv:10.0.1) Gecko/20100101 Firefox/10.0.1');

my $response = $agent->request($request);
print $response->content;
